home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PASCALL / VIDEO / VIDTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-16  |  245b  |  17 lines
  1. program vidtest;
  2. uses
  3.    Crt,FVid;
  4. var
  5.    A:TVid;
  6. function Inkey:char;
  7. begin
  8.    if keypressed then Inkey:=readkey
  9.    else               Inkey:=#0;
  10. end;
  11. begin
  12.    A.Init(0);
  13.    repeat
  14.       A.Bo;
  15.    until inkey=#27;
  16.    A.Done;
  17. end.